home *** CD-ROM | disk | FTP | other *** search
/ Aminet 45 / Aminet 45 (2001)(GTI - Schatztruhe)[!][Oct 2001].iso / Aminet / game / data / obvious.lha / install obvious next >
Text File  |  2001-04-08  |  3KB  |  106 lines
  1. ; $VER: install obvious 1.0 (8.4.2001)
  2. ;
  3. ; Installer script for obvious style for dynAMIte
  4. ;
  5. ; Written by Thomas Aglassinger <agi@rieska.oulu.fi>
  6. ; Feel free to modify this script and include it with your own style,
  7. ; provided you indicate that you are the new author.
  8.  
  9.  
  10. ; some stuff you should change if you use this script for another style
  11.  
  12. (set #style "obvious")
  13. (set #description "This style makes it easy to relate player figures to names in the title and chat.")
  14.  
  15. (set #exit-message (cat "The \"" #style "\" style has been installed."))
  16.  
  17.  
  18. ; ensure that minimum installer version to be installed
  19.  
  20. (set #minimum-installer-version 43)
  21. (set #minimum-installer-revision 3)
  22. (set #minimum-installer-id
  23.    (+ #minimum-installer-revision
  24.        (* #minimum-installer-version 65536)
  25.    )
  26. )
  27. (debug "  minimum-installer-id = " #minimum-installer-id)
  28. (debug "  current-installer-id = " @installer-version)
  29.  
  30. (if (< @installer-version #minimum-installer-id)
  31.   (
  32.     (set #message-wrong-installer
  33.     (cat "You have an old version of the program `Installer' on your Amiga.\n\n"
  34.          "The installation procedure needs at least Installer "
  35.          #minimum-installer-version "." #minimum-installer-revision ".\n\n"
  36.          "Please obtain a newer version from Aminet.\n\n"
  37.     ))
  38.  
  39.     (debug "installer too old")
  40.     (abort #message-wrong-installer)
  41.   )
  42. )
  43.  
  44.  
  45. ; welcome screen
  46.  
  47. (set #welcome-message
  48.    (cat "\nThis installer script installs and activates the \"" #style "\" style for dynAMIte.\n\n"
  49.         #description
  50. ))
  51.  
  52. (welcome #welcome-message)
  53.  
  54. ; ask where dynAMIte is installed
  55.  
  56. (set #dynamite-drawer
  57.    (askdir
  58.       (prompt "Select the directory in which dynAMIte is installed")
  59.       (help "This is the directory where the dynAMIte program and icon are located")
  60.       (default "work:")
  61.    )
  62. )
  63.  
  64.  
  65. ; resolve information
  66.  
  67. (set #gfx-file      (cat #style ".gfx"))
  68. (set #dynamite-file (tackon #dynamite-drawer "dynAMIte"))
  69. (set #style-drawer  (tackon #dynamite-drawer "styles"))
  70.  
  71. (debug ("gfx-file=\"%s\"\ndynamite-file=\"%s\"\nstyle-drawer=\"%s\""
  72.         #gfx-file #dynamite-file #style-drawer
  73. ))
  74.  
  75.  
  76. ; copy graphics
  77.  
  78. (copyfiles
  79.     (prompt "Copying graphics")
  80.     (help "This file represents the graphics of the style.")
  81.     (source #gfx-file)
  82.     (dest #style-drawer)
  83.     (confirm)
  84. )
  85.  
  86.  
  87. ; set tooltype
  88.  
  89. (tooltype
  90.    (prompt (cat "Making \"" #style "\" the default style "
  91.                 "by setting tooltype \"STYLE=" #style "\"."))
  92.    (help   (cat "If you skip this, dynAMIte will continue to use the current style. "
  93.                 "You can manually set this tooltype later.\n\n"
  94.                 "If continue, you can later revert to current style by removing the tooltype."))
  95.    (settooltype "STYLE" #style)
  96.    (dest #dynamite-file)
  97.    (confirm)
  98. )
  99.  
  100.  
  101. ; exit
  102.  
  103. (exit #exit-message
  104.     (quiet)
  105. )
  106.